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FFFFFFFFFRFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTTTTTTTTTT LLet 
FFFFFRFFRRFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTTTTTTTTFT Lie 
FFFFFRFRRRFFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTITTTTTTTT §=LtL 
FFF 000 000 RRR RRR RRR RRR TTT LLL 
FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 
FFFFFFFFFFFF 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 
FFFFFFFFFFFE 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 
FFFFFFFFFFFF 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 

FFF 000 000 RRR RRR RRR = RRR TTT LLL 

FFF 000 000 RRR RRR RRR = =RRR TTT LLL 

FFF 000 RRR RRR RRR = RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 0 000 RRR RRR RRR RRR TTT LLL 

FFF 000000000 RRR RRR RRR RRR TTT LLLLLLLLLLELLLL 
FFF 000000000 RRR RRR RRR RRR TTT LLLLLLLLLLELLLL 
FFF 000000000 RRR RRR RRR RRR TTT LLLLELLLLLLLLLL 
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V 

: 

0 
FFFFFFFFFE §=©Q00000  RRRRRRRR WW Ww RRRRRRRR IIII11 TTTTTTTTTT | SSssssss uu UU 6 
FFFFFFFFFF = QO0000  RRRRRRRR WW WW RRRRRRRR IIIIII  TTTTTTTTTT | SSSSSSSS UU UU 0 
FF 00 00 RR RR WW Ww RR RR II TT S$ UU UU Q 
FF 00 00 RR RR WW Ww RR RR Il TT SS UU UU Q 
FF 00 O RR RR WW WW RR RR II TT $$ UU UU Q 
FF 00 00 RR R WW WW RR RR II TT SS UU Q 
FFFFFFFF © 00 00 RRRRRRRR WW WW RRRRRRRR II TT SSSSSS_ UU UU Q 
FFFFFFFF © 00 00 RRRRRRRR WW WW RRRRRRRR II TT SSSSSS__——- UU UU Q 
FF 00 00 RR RR WW WW WW RR RR II TT SS UU UU Q 
FF 00 RR RR Ww WW WW RR RR II TT SS UU UU Q 
FF 00 RR RR  WWWW WWWW RR RR II TT SS UU UU Sana Q 
FF 00 00 RR RR WWW WWwWWw RR RR II TT SS UU UU sone Q 
FF 000000 ~=—s RR RR WW Ww RR RRs TT SSSSSSSS | UUUUUUUUUU pada Q 
FF 000000 ~—s RR RR WW Ww RR RR sTAIII TT SSSSSSSS_ _UUUUUUUUUU wae 4 

0 

0 
LL HII SSSSSSSS Q 
LL Hill] SSSSSSSS 9 
LL II SS q 
LL II SS 
LL 11 SS q 
LL II $$ i 
LL I] SSSSSS f 
LL II SSSSSS q 
LL II SS i 
LL II SS , 
LL II SS 4 
LL 1] SS , 
LLLLLLLLLL JIIIII «= SSSSSSSS d 
LLLLLLLLLL §=ssSTII)=«=—s SSSSSSSS , 


11 
- entry point for FORTRAN WRITE stoventi 16-SEP-1984 00:07:29 VAX/VMS Macro v04-00 Page 0 


FORSURITE 
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(3 8 dE ab ; Detailed Current Edit History 
(4) 1 DECLARATION _5U = WRITE Sequential UNFORMATTED 


V 
$ 
| 
] 
] 
N 
N 
N 
N 
N 
N 
U 
N 
I 
" 
E 


| 
— | 


11 
- entry point for FORTRAN WRITE SEQUENT! 16-SEP-1984 00:07: AX/VMS Macro V04-0 1 
Pg 8 EP-1984 99:83:47 EFORRTL. eRe SFORURI TSU. MAR; 1 Soup (1) 


-TITL Forswe ite. SU - entry. point for FORTRAN WRITE 5&8 | adi UNF ORMATTED 
IDENT § /1-011/ File: FORWRITSU.MAR Edit: JAW10 


MAARARAAAAAAALAALALAALALALALAL EARLE LAS ESAL ERAS A RASA REESE ASAE RES ERE EARS ERLE SO 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


D_UNDER A LICENSE AND MAY oF USED AND gd 


& 

2 

« 

& 

ey 

y e 

CH CE * 

COPYRIGHT N OTICE. THIS SOFTWARE OR ANY OTHE * 

BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 

OTH ON. TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
TRANSFERRED. * 
© 
THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
CORPORATION. * 
® 

® 

fe 

* 

® 

® 


DIGITAL ASSUMES NO RESPONS wie 


IBILIT 
SOFTWARE ON EQUIPMENT WHICH 


FOR THE USE OR RELIABILITY OF ITS 


LITY 
S NOT SUPPLIED BY DIGITAL. 


e@e Se Ge Ge Ge Ge Sete Ge Ge 
eaeeeneneeneenenenneeaeaeaeennne 


PARRA ARAAARARAAAASALASAASASEARERLALALELE RARER ARREARS RR EA RRR ARERR SEAR RR RAD SS 


FACILITY: FORTRAN Support Library - user callable 
ABSTRACT: 


This module contains the entry BP sts for the FORTRAN 
WRITE a ea jE ES nt getty: /0 statement. It is stasis 
a call to FORS$IO_BEG with bits in RO which describe 
pareuater List. FORSSIO_BEG interprets the parameters. 


MAINTENANCE NOTE: 
The transfer vector (RTLVECTOR+ALLGBL) must have the rollowing: 


- TRANSFER FORSWRITE SU 
- MASK FOR$$10_BEG 
BRW FORSWRITE_SU+2 


This puts the correct mask in entry vector, that is FORS$SIO_BEG entry mask. 
Furthermore this module must only use RO and R 
since any other register might not be in the entry mask for FORSSIO_BEG. 
ENVIRONMENT: User access mode; mixture of AST level or not 
AUTHOR: Richard B. Grove, CREATION DATE: 28-May-78 


seats 14 BY: 
. Hastings, 29-July-78 


ooo 
SOSSSOSCSOOSOSOSOOOOSOSOOSOSOSOOOOSOOSOSOSOOSCOSOOSOSOOSOOOOOOSOOOOOOOOOOOOOO 
SOOSOSOSOSOSOOSOSCOOSOOSOOCOSSSSOSOSSSSOSCSSOOOOOOCOOOOOOOOOOOOOOOOOoOO 


SOOOSCSOSCOOOOSOSOOSOSOOOOOOOOSOOOSOSOOSOOOOSOOOSOOOOOSOOOCOOOOOOOO 


SOSOSSSSSOSOOOSOOSOSOSOSOSOSOSOSOOOSSOSOSOSOSSOSOSOSOSOSOSOOSOOOOSOOSOSoOS 
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HISTOR Detailed Current Edit History 6-SEP- FORRTL.SRCJFORWRITSU.MAR; 1 
-SBTTL HISTORY Detailed Current Edit History 
§ ; Edit History for Version 1 
: o- Add comment about ver ers. TNH 23-June-78 
Update Sersion’ number and copyright ora iee se 1 rae tp : 
Change Statenent ¢ mbols to be I $k. 2. 1BS 1=DEC=? 
dd 4" to sith edivectives’ sss a3. 
D_10, FORSWRITE_IF, FORSWRITE_10, 
0 eORSRe AD D-KU, FORSREWRIT TE_SU, 
0 $79 
00 
00 
00 
00 
00 
00 
00 
00 
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SWRITE_SU = entry point for FORTRAN WRIT SEQUENTI 16-SEP= AX/VMS Macro v04-00 Pa 
y Pe 1986 41:00:17 e 3) 
Pass arg in RO, not ROR, add comments. TNH 29-July-78 
Change statement type symbols to be 592 
the P 
Add FORSREAD. KF SFORSREAD. KO. *FonsReWAITE SF, FORSREWRITE_SO, 
FO , FORSREA 
SBL 2 


Remove 3 L pan I polots th a ates object time formatting, 
a sete, tor in FORS so that we can arrange to 
0a 


format co ey Snip when it is needed. 
JBS 26-JUN-1979 . 


1-007 - Remove as i oint FORSENCODE_MF; we will code a new module 
for it and F RS$10 BEG, to se how much 1/0 initiation time 
improves. JBS 02-JUL- 
008 - Do likewuse for FORSREAD_DU and FORSWRITE_DU. JBS 03-JUL-1979 
009 = Remove all entry points except FORSWRITE rei each of the 

others gets its own module so we -, ge sbs-aut-1979 load 
the necessary UDF and REC modules. S$ 09- 1 
1-010 - New parameter format for FOR$$I0_B Bec.” Beat 5-Dec-1979 
1-011 = Change BRW FORS$$I0_BEG+2 to JMP G*FORS$IO ‘pecs. JAW 21°F eb-1981 

| 


Bete Ge Se Ge Se Se Ge Ge Se Ge Ge Ge Se Se See Ge Se Ge Se Ge Sete & 
SS 
4 
So 
So 
on 
t 


CODON NINN NNN NINO OOO 
—OOe 


WN" OOONOULS wr 
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5 
$ 
3: 
0 3 
38 
94; 
95 : 
$00 Of 
0 4 
a 
0900 10) 
33 ii 
33 104 
000 105 
000 106 
0000 4 
0900 108 ; 
000 109; 
000 110; 
0000 111; 
aE 
0000 114: 
4 115 
00000000 118 
000 11 
38 Ht : 
00 119 ; 
200 139 
$00 1 ¢ 
000 123; 
000 124; 
38 125; 
00 126 
0000 127; 


34 

; The ron references are to make sure the necessary UDF and REC 
° es 

; the dispatch tables in FORSSDISPAT. 


- enter Peuct for FORTRAN WRITE skoventi + a P 4 90:00:49 AX/VMS Macro 


v04-00 Page 
SEP-1984 FORRTL.SRCIJFORWRITSU.MAR; 1 . 3) 


«SBTTL DECLARATIONS 


: INCLUDE FILES: 


SFORPAR ; Define inter-module FORTRAN symbols 
SISBDEF ; Define statement type symbols 


EXTERNAL SYMBOLS: 


-DSABL GBL ; Declare all external symbols 
-EXTRN FORSSIO_BEG 3; common 1/0 statement processing 


modules are loaded. These are the routines which are called through 


.EXTRN FORSSUDF_WUO, FORSSUDF_WU1, FORSSUDF_wuU9 
SEXTRN FORSSREC"WSUO, FORSSREC_WSU1, FORSSREC_WSU9 


MACROS: 
NONE 
PSECT DECLARATIONS: 


-PSECT _FORSCODE PIC,USR,CON,REL,LCL,SHR,EXE,RD,.NOWRT,LONG 


EQUATED SYMBOLS: 


OWN STORAGE: 
NONE 


<= 
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-SBTTL FORSWRITE_SU = WRITE Sequential UNFORMATTED 


<tr 


;+4 
; FUNCTIONAL DESCRIPTION: 


Initialize the FORTRAN I/0 system to perform 
a WRITE sequential unformatted 1/0 statement. 


; ; CALLING SEQUENCE : 
CALL FOR ryt - ( oy ge “Vv, 


err_adr. end_ adr.j.rjJ) 
; INPUT PARAMETERS: 
nit.rl.v logical unit number 
fer. adr jr } optional ERR= address 
4 end_adr optional END= address 
” 


IMPLICIT INPUTS: 
NONE except those used by FORS$IO_BEG. 
OUTPUT PARAMETERS: 

NONE 

; IMPLICIT OUTPUTS: 

; NONE except those left by FORSS$IO_BEG. 
COMPLETION CODES: 

NONE 

SIDE EFFECTS: 

NONE except those of FORS$IO_BEG. 


SOooooooosd 


COOOCooooooooooeoo 


WMMIOOOCCOCOOCOOCOSOSoooO 


= 
oO 
Oo 

ee ee ee ee ee ee ee) 


SNA A AAA AAA AA MM PES LEE 


OE WN 299 OD NA NE WIN  O OD NA UNE WIN $$ O ODNA NEW O OONOUE 


0000° FORSWRITE_SU:: .MASK FORS$IO BEG 
50 03 QA ny 2BL #1SB$K_ST TY WSO, RO ; Statement type 
00000002'GF 17 08 G*FORSS10_BEG+2 : branch past call mask 
08 END 
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Symbol ta 


FORSS1O BEG eeeeeeee 8X 
FORSSREC_WSud eeeereer x 
FORSSREC_WSU eerereee =X 
FORSSUDF “wud eenreeree x 
FORSSUDF eeeerene x 
FORSSUDF “WU eereeeee 8 6X 
FORSER TES 90000000 RG” 0} 
FOR 
1SBSK_ST_TY_wSuU = So00008 

$eeeee ee seen ecw ce oa 

: Psect synopsis ! 

teow ocer em omen cos wood 
PSECT name Allocation PSECT No. Attributes 
- ABS. 00000000 ( 0.) 0(¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
_FORSCODE 00000008 ¢ 11.) O1¢ 1.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 

poo n ee nese ee eeos ee ene eee se 
! Performance indicators ! 

Phase Page faults CPU Time Elapsed Time 
Initialization 1 00:08 300- 02 00:00:01.8 
Command processing 129 3:88: 0.56 88: Bb 08" 0 
Pass 128 00:00:01.21 00:00:05.06 
Symbol table sort 0 Bp 88: 8-78 00:00:00.64 
Pass 2 45 38:8 :00.4 00:00:01.73 
Symbol table output 0:00: 3-08 83 392 380 -8¢ 
Psect synopsis output Bh 88: 85°6 aes Bae 1 
Cross-reference output 0 0: 8708-28 00: 899-98 
Assembler run totals 340 00:00:02. 00:00:12.2 


The working set Limit was 1050 peges. 

6663 bytes (14 pages) of virtual memory were used to buffer the intermediate code. 

There were 20 pages of symbol table space allocated to hold 187 non-local and 0 local symbols. 
175 source Lines were read in Pass 1, produc tng 8 object records in Pass 2 

9 pages of virtual memory were used to define 2 macros. 


ewer es ome em ween neem one aa} 


Macro Library name Macros defined 
“$52 3S0UACB: FEORRTL Oo Jr omnte 8:1 
$255$DUA28:(SYSLIBISTARLET MLB; 

TOTALS (all libraries) 


183 GETS were required to define 2 macros. 


There were no errors, warnings or information messages. 
MACRO/ENABLE=SUPPRESSION/DISABLE=(GLOBAL , TRACEBACK) /LIS=L1S$:FORWRITSU/OBJ=OBJ$:FORWRITSU MSRC$:FORWRITSU/UPDATE=(ENHS:FORWRITSU)+L1 


er 


T CORPORATION 
PROPRIETARY 
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